program Authority;

uses
  Forms,
  Windows,
  AuthUnit in 'AuthUnit.pas' {fmAuth},
  InvTypes in 'InvTypes.pas',
  DBinv in 'DBinv.pas' {DMInv: TDataModule},
  InvProc in 'InvProc.pas';

{$R *.res}
var
  hMutex: THandle;
begin
  hMutex := CreateMutex(nil, False, 'E191BA0C41924AA9840243D5CAE346AF');
  try
    if GetLastError <> ERROR_ALREADY_EXISTS then
    begin
      Application.Initialize;
      Application.CreateForm(TfmAuth, fmAuth);
      Application.Run;
    end;
  finally
    CloseHandle(hMutex);
  end;
end.

